   3 .
   4 .
   5 .TIC TAC TOE
   6 :RETURN 
  10 CLEAR 
  20 PRINT "DO YOU WISH TO GO FIRST?"
  30 INPUT "1 - YES     2 - NO"A
  40 G=0;H=0
  50 FOR Z=1TO 18
  60 @(Z)=0
  70 NEXT Z;NT=0;C=0;GOSUB 1000
  90 IF A=2A=1;GOTO 200
 100 A=2
 110 CY=-30
 120 PRINT "MOVE?",
 121 B=KN(1)÷25+6
 122 IF B>9B=9
 123 PRINT #2,B
 124 IF TR(1)GOTO 130
 125 GOTO 110
 130 IF @(B)>0GOTO 110
 135 BOX -58,0,44,80,2
 140 @(B)=1;GOSUB 2000
 160 D=1;GOSUB 3000
 180 GOSUB 4000
 185 IF C=9GOTO 50
 190 GOSUB 5000
 195 IF C=9GOTO 50
 200 GOTO 6000
 220 IF @(B)>0GOTO 8050
 230 @(B)=5;GOSUB 2000
 240 D=5;GOSUB 3000
 260 GOSUB 4000
 265 IF C=9GOTO 50
 270 GOSUB 5000
 275 IF C=9GOTO 50
 280 GOTO 110
1000 BC=RND (256);FC=BC+11;CLEAR 
1005 GOTO 1050
1010 BOX 0,0,3,60,1;BOX 20,0,3,60,1;BOX 10,10,60,3,1;BOX 10,-10,60,3,1;RETURN 
1050 X=-10;Y=-20
1060 FOR Z=1TO 9
1070 CX=X;CY=Y
1080 PRINT #1,Z
1090 X=X+20
1100 IF X>30X=-10;Y=Y+20
1110 NEXT Z
1120 GOTO 1010
2000 X=-10;Y=-20
2010 J=@(B);K=B
2020 K=K-1
2030 IF K=0GOTO 2070
2040 X=X+20
2050 IF X>30X=-10;Y=Y+20
2060 GOTO 2020
2070 IF J=1BOX X,Y,11,11,2;LINE X-5,Y+5,0;LINE X+5,Y-5,1;LINE X-5,Y-5,0;LINE X+5,Y+5,1;RETURN 
2080 BOX X,Y,11,11,1
2090 BOX X,Y,9,9,2
2100 RETURN 
3000 IF B=1@(10)=@(10)+D;@(13)=@(13)+D;@(16)=@(16)+D
3010 IF B=2@(10)=@(10)+D;@(14)=@(14)+D
3020 IF B=3@(10)=@(10)+D;@(15)=@(15)+D;@(17)=@(17)+D
3030 IF B=4@(11)=@(11)+D;@(13)=@(13)+D
3040 IF B=5@(11)=@(11)+D;@(14)=@(14)+D;@(16)=@(16)+D;@(17)=@(17)+D
3050 IF B=6@(11)=@(11)+D;@(15)=@(15)+D
3060 IF B=7@(12)=@(12)+D;@(13)=@(13)+D;@(17)=@(17)+D
3070 IF B=8@(12)=@(12)+D;@(14)=@(14)+D
3080 IF B=9@(12)=@(12)+D;@(15)=@(15)+D;@(16)=@(16)+D
3090 RETURN 
4000 FOR Z=10TO 18
4010 IF @(Z)=3GOTO 9000
4020 IF @(Z)=15GOTO 9100
4030 NEXT Z
4040 RETURN 
5000 C=0
5010 FOR Z=1TO 9
5020 IF @(Z)>0C=C+1
5030 NEXT Z
5040 IF C=9GOTO 9200
5050 RETURN 
6000 FOR W=10TO 2STEP -8
6010 FOR Z=10TO 18
6020 IF @(Z)=WGOTO 7000
6030 NEXT Z
6040 NEXT W
6050 GOTO 8000
7000 IF Z=10B=RND (3);GOTO 7100
7010 IF Z=11B=RND (3)+3;GOTO 7100
7020 IF Z=12B=RND (3)+6;GOTO 7100
7030 IF Z=13B=RND (3)×3-2;GOTO 7100
7040 IF Z=14B=RND (3)×3-1;GOTO 7100
7050 IF Z=15B=RND (3)×3;GOTO 7100
7060 IF Z=16B=RND (3)×4-3;GOTO 7100
7070 IF Z=17B=RND (3)×2+1
7100 IF @(B)>0GOTO 7000
7110 GOTO 230
8000 C=0
8010 FOR Z=1TO 9
8020 IF @(Z)>0C=C+1
8030 NEXT Z
8050 IF C>4B=RND (9);GOTO 220
8060 B=RND (5)×2-1
8070 GOTO 220
9000 PRINT "YOU WIN!"
9005 C=9
9010 H=H+1
9020 PRINT "COMPUTER =",#3,G
9030 PRINT "   HUMAN =",#3,H
9040 FOR Z=1TO 2000
9050 NEXT Z
9060 RETURN 
9100 PRINT "YOU LOSE TURKEY!"
9105 C=9
9110 G=G+1
9120 GOTO 9020
9200 PRINT "IT'S A DRAW!"
9210 GOTO 9040
RUN 
